home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / F / Finite-State Machine 2.3.sit / Finite-State Machine 2.3 / Finite-State Machine 2.3 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-04-06  |  2.8 KB  |  28 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3</name>
  5.     <id>-1</id>
  6.     <cardCount>6</cardCount>
  7.     <cardID>2830</cardID>
  8.     <listID>5165</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. global DefaultLoudness
  18. put getVolume() into DefaultLoudness
  19. Volume 3
  20. if  the userLevel < 3  then  set userLevel to 3
  21. set the textArrows to true
  22. hide message box
  23. if  the top of card window <= 30  then  hide menuBar
  24. delete menu "Edit"
  25. delete menu "Go"
  26. delete menu "Tools"
  27. delete menu "Objects"
  28. delete menu "Font"
  29. delete menu "Style"
  30. CustomMenu
  31. if  the version of HyperCard < 2  then
  32. answer "Sorry, HyperCard 2.0 or later is required."
  33. doMenu "Quit HyperCard"
  34. end if
  35. end openStack
  36.  
  37. on closeStack
  38. global DefaultLoudness
  39. if  freeSize of this stack >= 20000  then
  40. put "Compacting Stack...  ("&  ¬¨
  41. freeSize of this stack&" of "&size of this stack&")"
  42. doMenu "Compact Stack"
  43. put empty
  44. end if
  45. hide message box
  46. reset menuBar
  47. show menuBar
  48. Volume DefaultLoudness
  49. end closeStack
  50.  
  51. on CustomMenu
  52. if  there is no menu "Machine"  then  create menu "Machine"
  53. put "Run,Step" into menu "Machine" with menuMsgs "RunMachine,StepMachine"
  54. put "-" after menuItem 2 of menu "Machine"
  55. repeat  with N = 1 to number of cards in background "Machine"
  56. put  background field "MachineTitle"  ¬¨
  57. of card N of background "Machine"  ¬¨
  58. after menuItem 2+N of menu "Machine"
  59. end repeat
  60. set commandChar of menuItem 1 of menu "Machine" to "R"
  61. set commandChar of menuItem 2 of menu "Machine" to "S"
  62. end CustomMenu
  63.  
  64. on doMenu  item,menu
  65. if  (menu = "Machine") and (item <> "Run") and (item <> "Step")  then
  66. repeat  with N = 1 to number of cards in background "Machine"
  67. if item = background field "MachineTitle"  ¬¨
  68. of card N of background "Machine"  then
  69. visual effect scroll up
  70. go card N of background "Machine"
  71. exit repeat
  72. end if
  73. end repeat
  74. else
  75. pass doMenu
  76. end if
  77. end doMenu
  78. </script>
  79.     <background id="2320" file="background_2320.xml" name="Help" />
  80.     <background id="2571" file="background_2571.xml" name="Machine" />
  81.     <background id="5546" file="background_5546.xml" name="InfoBackground" />
  82.     <background id="5653" file="background_5653.xml" name="Black" />
  83.     <card id="2830" file="card_2830.xml" marked="false" name="" owner="2571" />
  84.     <card id="3586" file="card_3586.xml" marked="false" name="" owner="2571" />
  85.     <card id="4110" file="card_4110.xml" marked="false" name="" owner="2571" />
  86.     <card id="5916" file="card_5916.xml" marked="false" name="" owner="5653" />
  87.     <card id="4546" file="card_4546.xml" marked="false" name="" owner="2320" />
  88.     <card id="6257" file="card_6257.xml" marked="false" name="" owner="5546" />
  89. </stack>
  90.